5322  R3=R3-R5*59.6*RMINI
C     	MOVNS 	00,R3    ;	33300	C  TO SPACE OUT ACCIDS.
	J5X=-1
	JAX=JA
 	TS=-1 
	R11=AMOD(R11,1.0)*70.
 	R4=RX4
      	R3=RJAC
	FICTA=-1
	J5=J5+21
	RZ=3
	IF(J5.EQ.26)RZ=2
C     	MOVEI 	3,1
C     	CAME  	3,STEM  
C  	JRST  	A26
26	R4=R4+RZ*RMINI/RSTJ2
	Q=12,5
	IF(J5.EQ.26)Q=11.75
	IF(R4.LT.Q)R4=Q
      	CALL CENTX
	IF(J5.EQ.26)GO TO 222
281	JX=1
2222    IF(R11.EQ.0)GO TO 2223
	R4=R4+R11/7.
C  GET DISPLACEMENT IN SCALE STEPS
	CENTR=CENTR+R11*RSTJ2
C  ADD TO HEIGHT
	IF(JSTEM.EQ.1)RX4=RX4-R11 
C FOR WEDGE
	R11=0
	FICTA=0
	CALL FERMTA